1) PASCAL.OLD[PAS,SYS] and 2) PASCAL.PAS[PAS,SYS]	1-20-79 01:41	pages 14,14

**** File 1) PASCAL.OLD[PAS,SYS], Page 14 line 555
1)	    GETPARAMETER(LIST←FILE,LIST←PROTECTION,LIST←UFD,LIST←DEVICE,'LIST      ');
**** File 2) PASCAL.PAS[PAS,SYS], Page 14 line 555
2)	    IF OBJECT←PROTECTION = 0 THEN OBJECT←PROTECTION := 400B (*NODUMP EJG:20JAN79*);
2)	    GETPARAMETER(LIST←FILE,LIST←PROTECTION,LIST←UFD,LIST←DEVICE,'LIST      ');
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 7
1)	      222;
1)	    CONST
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 7
2)	      1,222;
2)	    CONST
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 78
1)			       CHCNTMAX := 72;
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 78
2)			       IF lswitch=true then
2)			        CHCNTMAX := 72;
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 154
1)	      WHILE CH = ' ' DO
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 155
2)	     1:
2)	      WHILE CH = ' ' DO
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 163
1)			SKIPCOMMENT; INSYMBOL
1)		       END;
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 165
2)			SKIPCOMMENT; goto 1
2)		       END;
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 171
1)			  SKIPCOMMENT; INSYMBOL
1)			 END
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 173
2)			  SKIPCOMMENT; goto 1;
2)			 END
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 178
1)		'A','B','C','D','E','F','G','H','I','J','K','L','M',
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 180
2)		'"':			(*beginning of SLAC comment*)
2)		       begin
2)			nextch;
2)			while ch<>'"' do
2)			 begin
2)			 if eoln(source) then endofline;
2)			 nextch;
2)			 end;
2)			if eoln(source) then endofline;
2)			nextch;
2)			goto 1;
2)			end;
2)		'#':			(*also a comment*)
2)		       begin
2)			while ch='#' do nextch;
2)			if eoln(source) then endofline;
2)			goto 1;
2)			end;
2)		'A','B','C','D','E','F','G','H','I','J','K','L','M',
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 193
1)			 SKIP←E←DIRECTORY; INSYMBOL
1)			END
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 213
2)			 SKIP←E←DIRECTORY; goto 1;
2)			END
***************


**** File 1) PASCAL.OLD[PAS,SYS], Page 16 line 361
1)		'"':
1)		       BEGIN
**** File 2) PASCAL.PAS[PAS,SYS], Page 16 line 381
2)		'!':				(*peg 7/78*)
2)		       BEGIN
***************